Подсчитать количество столбцов содержащих хотя бы один нулевой элемент — Pascal (Паскаль) — CF

uses crt;
 
const n=4;
 
type a=array[1..n,1..n] of integer;
 
var i,j:integer;
    m1:a;
 
function Zero (var m2:a): integer;
  var temp:set of byte;
      h,kol:byte;
 
  begin
     temp:=[];
     kol:=0;
    for i:=1 to n do
      for j:=1 to n do
      begin
        if (m2[i,j] = 0) and not(j in temp) then
        begin
          writeln('Stolbec - ',j,' Soderjit - 0');
          temp:=temp+[j];
          h:=1;
          kol:=kol+1;
        end
        else
          if (i=n) and (j=n) and (h<>1) then
           writeln('Nylei net');
      end;
    writeln('k-vo stolbcov soderjat "0" - ',kol);
  end;
 
 
begin
 clrscr;
 randomize;
 
 for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      m1[i,j]:=random(10)-5;
      write(m1[i,j]:2, ' ');
    end;
    writeln;
  end;
 
  Zero(m1);
 
end.